*---- Authors: Maria Nordbrandt, Gina Gustavsson, Karen Nielsen Breidahl
*---- The Unifying Magic, EJPR 2025


*****************************************************************
*Appendix B: BALANCE CHECKS

eststo clear
eststo: reg treat_flag age gender i.educat i.HH_inc_d6 ideology

esttab using "table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)

eststo clear
eststo: reg treat_cake age gender i.educat i.HH_inc_d6 ideology

esttab using "table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)

*Flag
eststo clear
estpost sum age gender educat HH_inc_d6 ideology if Splitgroup==1

esttab, label cells("mean sd") 
esttab using "summary_stats_se.rtf", label cells("mean sd") title("Summary Statistics") replace

eststo clear
estpost sum age gender educat HH_inc_d6 ideology if Splitgroup==2

esttab, label cells("mean sd") 
esttab using "summary_stats_se.rtf", label cells("mean sd") title("Summary Statistics") replace

*Cake
eststo clear
estpost sum age gender educat HH_inc_d6 ideology if Splitgroup==3

esttab, label cells("mean sd") 
esttab using "summary_stats_se.rtf", label cells("mean sd") title("Summary Statistics") replace

eststo clear
estpost sum age gender educat HH_inc_d6 ideology if Splitgroup==4

esttab, label cells("mean sd") 
esttab using "summary_stats_se.rtf", label cells("mean sd") title("Summary Statistics") replace

ttest age, by(treat_flag)
ttest gender, by(treat_flag)
ttest educat, by(treat_flag)
ttest HH_inc_d6, by(treat_flag)
ttest ideology, by(treat_flag)


ttest age, by(treat_cake)
ttest gender, by(treat_cake)
ttest educat, by(treat_cake)
ttest HH_inc_d6, by(treat_cake)
ttest ideology, by(treat_cake)


*****************************************************************

*Appendix C: DESCRIPTIVES

label variable treat_flag "Flag treat."
label variable treat_cake "Cake. treat."
label variable marry_n "Social distance, spread unweight"
label variable marry_n_w "Social distance, spread weight"
label variable marry_dist_n "Social distance, dist. unweight"
label variable marry_dist_n_w "Distance, dist. weight"
label variable traits_n "Trait stereo, spread unweight"
label variable traits_n_w "Trait stereo., spread weight"
label variable traits_dist_n "Trait stereo., dist. unweight"
label variable traits_dist_n_w "Trait stereo., dist weight"
label variable dislike_n "Party dislike, spread unweight"
label variable dislike_n_w "Party dislike, spread weight"
label variable dislike_dist_n "Party dislike, dist unweight"
label variable dislike_dist_n_w "Party dislike, dist unweight"
label variable woman "Woman"
label variable age_n "age_n"
label variable HH_inc_d6 "HH.income"
label variable educat_n"educat_n."
label variable ideology_n "Ideology"
label variable extro_n "Extroversion"
label variable open_n "Openness"
label variable agree_n "Agreeableness"
label variable conscien_n "Conscientiousness"
label variable neuro_n "Neuroticism"
label variable ident_n "Nat. identification"
label variable attach_n "Nat. attachment"
label variable pride_inst_n "Institutional pride"
label variable pride_cult_n "Cultural pride"
label variable proud_n "General pride"




eststo clear
estpost sum treat_flag treat_cake marry_n marry_n_w marry_dist_n marry_dist_n_w traits_n traits_n_w traits_dist_n traits_dist_n_w dislike_n dislike_n_w dislike_dist_n dislike_dist_n_w woman age_n HH_inc_d6 educat_n  ideology_n extro_n open_n agree_n conscien_n neuro_n ident_n attach_n proud_n pride_inst_n pride_cult_n if  id_se!=.
esttab, label cells("count mean sd min max") 
esttab using "summary_stats_se.rtf", label cells("count mean sd min max") title("Summary Statistics") replace

eststo clear
estpost sum treat_flag treat_cake marry_n marry_n_w marry_dist_n marry_dist_n_w traits_n traits_n_w traits_dist_n traits_dist_n_w dislike_n dislike_n_w dislike_dist_n dislike_dist_n_w woman age_n HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n ident_n attach_n proud_n pride_inst_n pride_cult_n if id_dk!=.
esttab, label cells("count mean sd min max") 
esttab using "summary_stats_dk.rtf", label cells("count mean sd min max") title("Summary Statistics") replace

									
*******************************************************************

*APPENDIX :D TREATMENT EFFECTS  WAGNER'S MEASURES OF SOCIAL DISTANCING. BIVARIATE AND WITH CONTROLS
							
					
*SWEDEN:

					*Social distancing
										
										*Flag
										eststo clear
	
										*Treatment effects
										eststo: reg marry_n treat_flag  if id_se!=.
										eststo: reg marry_n treat_flag gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=.
										eststo: reg marry_n_w treat_flag  if id_se!=.
										eststo: reg marry_n_w treat_flag  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=. 
										eststo: reg marry_dist_n treat_flag  if id_se!=. 
										eststo: reg marry_dist_n treat_flag  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=. 
										eststo: reg marry_dist_n_w treat_flag if id_se!=. 
										eststo: reg marry_dist_n_w treat_flag   gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=.
										
										esttab using "reg_table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)
										
										*Cake
										eststo clear
	
										*Treatment effects
										eststo: reg marry_n treat_cake  if id_se!=.
										eststo: reg marry_n treat_cake gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=.
										eststo: reg marry_n_w treat_cake  if id_se!=.
										eststo: reg marry_n_w treat_cake  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=. 
										eststo: reg marry_dist_n treat_cake  if id_se!=. 
										eststo: reg marry_dist_n treat_cake  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=. 
										eststo: reg marry_dist_n_w treat_cake if id_se!=. 
										eststo: reg marry_dist_n_w treat_cake   gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=.
										
										esttab using "reg_table.rtf", replace  ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)
									
									
				*Trait stereotyping
										
										*Flag
										eststo clear
	
										*Treatment effects
										eststo: reg traits_n treat_flag  if id_se!=.
										eststo: reg traits_n treat_flag gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=.
										eststo: reg traits_n_w treat_flag  if id_se!=.
										eststo: reg traits_n_w treat_flag  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=. 
										eststo: reg traits_dist_n treat_flag  if id_se!=. 
										eststo: reg traits_dist_n treat_flag  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=. 
										eststo: reg traits_dist_n_w treat_flag if id_se!=. 
										eststo: reg traits_dist_n_w treat_flag   gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=.
										
										esttab using "reg_table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)
										
										*Cake
										eststo clear
	
										*Treatment effects
										eststo: reg traits_n treat_cake  if id_se!=.
										eststo: reg traits_n treat_cake gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=.
										eststo: reg traits_n_w treat_cake  if id_se!=.
										eststo: reg traits_n_w treat_cake  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=. 
										eststo: reg traits_dist_n treat_cake  if id_se!=. 
										eststo: reg traits_dist_n treat_cake  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=. 
										eststo: reg traits_dist_n_w treat_cake if id_se!=. 
										eststo: reg traits_dist_n_w treat_cake   gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=.
										
										esttab using "reg_table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)


*Party dislike
										
										*Flag
										eststo clear
	
										*Treatment effects
										eststo: reg dislike_n treat_flag  if id_se!=.
										eststo: reg dislike_n treat_flag gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=.
										eststo: reg dislike_n_w treat_flag  if id_se!=.
										eststo: reg dislike_n_w treat_flag  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=. 
										eststo: reg dislike_dist_n treat_flag  if id_se!=. 
										eststo: reg dislike_dist_n treat_flag  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=. 
										eststo: reg dislike_dist_n_w treat_flag if id_se!=. 
										eststo: reg dislike_dist_n_w treat_flag   gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=.
										
										esttab using "reg_table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)
										
										*Cake
										eststo clear
	
										*Treatment effects
										eststo: reg dislike_n treat_cake  if id_se!=.
										eststo: reg dislike_n treat_cake gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=.
										eststo: reg dislike_n_w treat_cake  if id_se!=.
										eststo: reg dislike_n_w treat_cake  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=. 
										eststo: reg dislike_dist_n treat_cake  if id_se!=. 
										eststo: reg dislike_dist_n treat_cake  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=. 
										eststo: reg dislike_dist_n_w treat_cake if id_se!=. 
										eststo: reg dislike_dist_n_w treat_cake   gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_se!=.
										
										esttab using "reg_table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)



*DENMARK

					*Social distancing
										
										*Flag
										eststo clear
	
										*Treatment effects
										eststo: reg marry_n treat_flag  if id_dk!=.
										eststo: reg marry_n treat_flag gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=.
										eststo: reg marry_n_w treat_flag  if id_dk!=.
										eststo: reg marry_n_w treat_flag  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=. 
										eststo: reg marry_dist_n treat_flag  if id_dk!=. 
										eststo: reg marry_dist_n treat_flag  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=. 
										eststo: reg marry_dist_n_w treat_flag if id_dk!=. 
										eststo: reg marry_dist_n_w treat_flag   gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=.
										
										esttab using "reg_table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)
										
										*Cake
										eststo clear
	
										*Treatment effects
										eststo: reg marry_n treat_cake  if id_dk!=.
										eststo: reg marry_n treat_cake gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=.
										eststo: reg marry_n_w treat_cake  if id_dk!=.
										eststo: reg marry_n_w treat_cake  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=. 
										eststo: reg marry_dist_n treat_cake  if id_dk!=. 
										eststo: reg marry_dist_n treat_cake  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=. 
										eststo: reg marry_dist_n_w treat_cake if id_dk!=. 
										eststo: reg marry_dist_n_w treat_cake   gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=.
										
										esttab using "reg_table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)
									
									
									
				*Trait stereotyping
										
										*Flag
										eststo clear
	
										*Treatment effects
										eststo: reg traits_n treat_flag  if id_dk!=.
										eststo: reg traits_n treat_flag gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=.
										eststo: reg traits_n_w treat_flag  if id_dk!=.
										eststo: reg traits_n_w treat_flag  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=. 
										eststo: reg traits_dist_n treat_flag  if id_dk!=. 
										eststo: reg traits_dist_n treat_flag  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=. 
										eststo: reg traits_dist_n_w treat_flag if id_dk!=. 
										eststo: reg traits_dist_n_w treat_flag   gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=.
										
										esttab using "reg_table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)
										
										*Cake
										eststo clear
	
										*Treatment effects
										eststo: reg traits_n treat_cake  if id_dk!=.
										eststo: reg traits_n treat_cake gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=.
										eststo: reg traits_n_w treat_cake  if id_dk!=.
										eststo: reg traits_n_w treat_cake  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=. 
										eststo: reg traits_dist_n treat_cake  if id_dk!=. 
										eststo: reg traits_dist_n treat_cake  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=. 
										eststo: reg traits_dist_n_w treat_cake if id_dk!=. 
										eststo: reg traits_dist_n_w treat_cake   gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=.
										
										esttab using "reg_table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)


*Party dislike
										
										*Flag
										eststo clear
	
										*Treatment effects
										eststo: reg dislike_n treat_flag  if id_dk!=.
										eststo: reg dislike_n treat_flag gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=.
										eststo: reg dislike_n_w treat_flag  if id_dk!=.
										eststo: reg dislike_n_w treat_flag  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=. 
										eststo: reg dislike_dist_n treat_flag  if id_dk!=. 
										eststo: reg dislike_dist_n treat_flag  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=. 
										eststo: reg dislike_dist_n_w treat_flag if id_dk!=. 
										eststo: reg dislike_dist_n_w treat_flag   gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=.
										
										esttab using "reg_table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)
										
										*Cake
										eststo clear
	
										*Treatment effects
										eststo: reg dislike_n treat_cake  if id_dk!=.
										eststo: reg dislike_n treat_cake gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=.
										eststo: reg dislike_n_w treat_cake  if id_dk!=.
										eststo: reg dislike_n_w treat_cake  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=. 
										eststo: reg dislike_dist_n treat_cake  if id_dk!=. 
										eststo: reg dislike_dist_n treat_cake  gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=. 
										eststo: reg dislike_dist_n_w treat_cake if id_dk!=. 
										eststo: reg dislike_dist_n_w treat_cake   gender age_n i.HH_inc_d6 educat_n   ideology_n extro_n open_n agree_n conscien_n neuro_n  if id_dk!=.
										
										esttab using "reg_table.rtf", replace ///
se stats(r2_a  N, fmt(a2) labels("Adj. R2" "Observations")) ///
b(%9.3fc)  compress star(* 0.10 ** 0.05 *** 0.01) /// 
unstack label nobaselevels nomtitles eqlabels(none) obslast nonotes  //////
varlabels(_cons Constant)
